Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00063.ls

Text File | 2000-03-27 | 2.6 KB | 83 lines

on checkDB start, finish
  global gDemoVersion, gDemoCharacters
  if voidp(start) then
    start = 1
  end if
  if voidp(finish) then
    if gDemoVersion then
      finish = 7
    else
      finish = 19
    end if
  end if
  repeat with X = start to finish
    thisChar = getCharCode(X)
    put "Testing" && thisChar && sprite(X).member.fileName
    flashSprite = sprite(X)
    memberNum = flashSprite.member
    frameCount = memberNum.frameCount
    labelList = []
    repeat with fff = 1 to frameCount
      thisLabel = getFrameLabel(flashSprite, fff)
      if thisLabel <> EMPTY then
        add(labelList, [#label: thisLabel, #start: fff, #end: fff, #mid: []])
        previous = labelList[labelList.count]
        repeat with Y = fff + 1 to frameCount
          thisLabel = getFrameLabel(flashSprite, Y)
          if thisLabel <> EMPTY then
            if thisLabel starts "End" then
              previous[#end] = Y
              exit repeat
              next repeat
            end if
            add(previous[#mid], [#label: thisLabel, #start: Y])
          end if
        end repeat
        fff = Y
      end if
    end repeat
    put "Labels for" && thisChar
    thisOne = getIt(X)
    repeat with verify in [#ABLOTTO, #ABUZZ, #approach, #ASOBER, #base1, #beckon, #bounce, #CARDEXCUSE, #CARDGEN, #CARDNEG, #dance, #drink, #DRINKD, #DRINKS, #DRINKDD, #flatter, #GREETA, #GREETB, #nCharm, #NDRINKD, #NDRINKS, #NDRINKZ, #passOut, #PCharm, #PDRINKD, #PDRINKS, #retreat, #TICKET, #WDRINKD, #WDRINKS, #WDRINKZ, #WORDERD, #WORDERS, #WORDERZ, #XNCHARM, #XPCHARM]
      found = 0
      repeat with act = 1 to count(thisOne)
        if getPropAt(thisOne, act) = verify then
          found = 1
          exit repeat
        end if
      end repeat
      if not found then
        put "No entry in the database for action" && verify && "for this character" && thisChar
        next repeat
      end if
    end repeat
    repeat with Y = 1 to count(thisOne)
      test = thisOne[Y]
      repeat with z = 1 to count(test)
        q = test[z]
        if listp(q) then
          repeat with w = 1 to count(q)
            newProp = getPropAt(q, w)
            if newProp = #anim then
              if not findLabel(sprite(X), q[w]) then
                put "Missing flash label for database entry" && q[w] && "for character" && thisChar
              end if
            end if
          end repeat
        end if
      end repeat
    end repeat
  end repeat
end

on getIt X
  global gCharacterActions
  sort(gCharacterActions)
  return gCharacterActions[X]
end

on getCharCode X
  global gCharacterActions
  return getPropAt(gCharacterActions, X)
end